From e0c80e3ab5367aabeeaf6e815609be6f393bf329 Mon Sep 17 00:00:00 2001 From: justbur Date: Thu, 3 Sep 2015 15:22:16 -0400 Subject: [PATCH] Better warning for add-key-val-to-alist --- which-key.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/which-key.el b/which-key.el index d9e7b3a2ffe..506a95c9a2c 100644 --- a/which-key.el +++ b/which-key.el @@ -464,9 +464,8 @@ bottom." (let ((key-lst (listify-key-sequence (kbd key)))) (cond ((null alist) (list (cons key-lst value))) ((assoc key-lst alist) - (message "which-key: the key %s already exists in %s. This addition \ -will override that value." - key alist) + (message "which-key: changing %s name from %s to %s" + key (cdr (assoc key-lst alist)) value) (setcdr (assoc key-lst alist) value) alist) (t (cons (cons key-lst value) alist))))) -- 2.30.2